Developer CD Series 2000…tember: Reference Library/Dev.CD Sep 00 RL Disk 1.toast/mac/What's New/• What was new 08⁄00/Sample Code/Interapplication Comm/MoreOSL/MoreDialogs/MoreDialogs.cp

Text File | 2000-06-23 | 6.1 KB | 217 lines | [TEXT/CWIE]

/*
    File:        MoreDialogs.cp

    Contains:

    Written by:    Pete Gontier

    Copyright:    Copyright (c) 1998 Apple Computer, Inc., All Rights Reserved.

                You may incorporate this Apple sample source code into your program(s) without
                restriction. This Apple sample source code has been provided "AS IS" and the
                responsibility for its operation is yours. You are not permitted to redistribute
                this Apple sample source code as "Apple sample source code" after having made
                changes. If you're going to re-distribute the source, we require that you make
                it clear in the source that the code was descended from Apple sample source
                code, but that you've made changes.

    Change History (most recent first):

         <6>     20/3/00    Quinn   Make SetDialogItemString work regardless of whether the dialog
                                    is using embedding or not.
         <5>      1/3/00    Quinn   SystemClick is no longer part of, or necessary in, Carbon.
         <4>     1/22/99    PCG     TARGET_CARBON
         <3>      1/7/99    PCG     add ToggleDialogCheckBox and MoreAppendDialogItemList
         <2>    11/11/98    PCG     fix header
         <1>    11/10/98    PCG     first big re-org at behest of Quinn

    Old Change History (most recent first):

         <2>     7/24/98    PCG        eliminate dependency on 'qd'
         <1>     6/16/98    PCG     initial checkin
*/

#include <ControlDefinitions.h>

#include "MoreToolbox.h"
#include "MoreAppearance.h"
#include "MoreDialogs.h"

#include <Sound.h>

pascal void SaferShortenDITL (DialogPtr dialog, DialogItemIndex index)
{
    while (index--) ShortenDITL (dialog, 1);
}

pascal DialogPtr MoreGetNewDialog (short dlogResID)
{
    return GetNewDialog (dlogResID, nil, kFirstWindowOfClass);
}

pascal void SetDialogItemString (DialogPtr dialog, DialogItemIndex index, ConstStringPtr str)
{
    OSStatus   junk;
    SInt16     iType;
    Rect        iRect;
    Handle     iHandle;
    ControlRef control;

    if (MoreAssert (dialog && index)) {
        if (str == nil) {
            str = "\p";
        }

        // If the dialog item is using a control rather than the pre-Appearance
        // sharing of a TEHandle, we must set the text using SetControlData.
        // If you don’t do this, it mostly works, but weird things happen with
        // the text highlighting in edit text items.

        if (HaveAppearance() && (GetDialogItemAsControl(dialog, index, &control) == noErr) && (control != nil)) {

            junk = SetControlData(control, kControlEditTextPart,
                                kControlEditTextTextTag,
                                str[0], (void *) &str[1]);
            MoreAssertQ(junk == noErr);
        } else {
            GetDialogItem(dialog, index, &iType, &iHandle, &iRect);
            SetDialogItemText(iHandle, str);
        }
    }
}

pascal void GetDialogItemString (DialogPtr dialog, DialogItemIndex index, Str255 str)
{
    if (MoreAssert (dialog && index && str))
    {
        short iType; Rect iRect; Handle iHandle;
        GetDialogItem (dialog,index,&iType,&iHandle,&iRect);
        GetDialogItemText (iHandle, str);
    }
}

pascal void SelectAllDialogItemText (DialogPtr dialog, DialogItemIndex index)
{
    SelectDialogItemText (dialog,index,0,32767);
}

pascal void MoveableModalDialog (ModalFilterUPP mfp, short *itemHit)
{
    //
    //    I just made this logic up.
    //    In a perfect world, I would steal the implementation
    //    of the real ModalDialog and tweak it a little bit.
    //    Consider it a to-do item.
    //

    EventRecord        event;
    DialogRef        pop, dummy;
    WindowRef        whichWindow;
    short            partCode;
    Boolean            handledIt = false;

    pop = GetDialogFromWindow (FrontWindow( ));
    *itemHit = kDialogItemIndexNone;

    do
    {
        WaitNextEvent (everyEvent & ~highLevelEventMask, &event, GetCaretTime( ), nil);

        switch (event.what)
        {
            case mouseDown:

                partCode = FindWindow (event.where, &whichWindow);

                if (whichWindow != GetDialogWindow (pop))
                {
                    #if TARGET_API_MAC_CARBON
                        SysBeep(10);
                    #else
                        if (partCode == inSysWindow)
                            SystemClick (&event,whichWindow);
                        else
                            SysBeep(10);
                    #endif

                    break;
                }

                if (inDrag == partCode)
                {
                    Rect dragBounds;


                    dragBounds = (**GetMainDevice ( )).gdRect;
                    InsetRect (&dragBounds, 4, 4);
                    DragWindow (GetDialogWindow (pop), event.where, &dragBounds);
                    break;
                }

                // fall thru

            default:

                if (mfp)
                    handledIt = CallModalFilterProc (mfp,pop,&event,itemHit);

                if (!handledIt && IsDialogEvent(&event))
                    DialogSelect(&event,&dummy,itemHit);

                break;
        }
    }
    while (*itemHit == kDialogItemIndexNone);
}

pascal Boolean ToggleDialogCheckBox (DialogRef dialog, DialogItemIndex itemIndex)
{
    if (!MoreAssert (itemIndex > 0 && itemIndex <= CountDITL (dialog)))
        return false;

    short iType; Handle iHandle; Rect iRect;
    ::GetDialogItem (dialog, itemIndex, &iType, &iHandle, &iRect);

    if (!MoreAssert ((iType & ~(kItemDisableBit | kControlDialogItem)) == chkCtrl))
        return false;

    Boolean result = !::GetControlValue (ControlRef (iHandle));
    ::SetControlValue (ControlRef (iHandle), result);

    return result;
}

pascal OSErr MoreAppendDialogItemList (DialogPtr dialog, DialogItemIndex ditlID, DITLMethod method)
{
    //
    //    Under Mac OS 8.5 and 8.5.1, AppendDialogItemList returns garbage when called
    //    from 68K code (through the address in the trap table). We attempt to detect
    //    the context in which this is a problem and work around it by doing our own
    //    feeble but not grossly incorrect error checking. One thing to be aware of
    //    is that this function does not allow you to append 0-item dialog item lists
    //    on systems which have the bug. If you have a better idea for how to do a
    //    modicum of error checking without a significant increase in complexity,
    //    let us know.
    //

    #if !TARGET_CPU_68K
        return AppendDialogItemList (dialog,ditlID,method);
    #else
        Boolean appendDialogItemListReturnsGarbage = (GetSystemVersion ( ) & 0xFFFFFFF0) == 0x00000850;

        if (!appendDialogItemListReturnsGarbage)
            return AppendDialogItemList (dialog,ditlID,method);

        DialogItemIndex        itemCountBefore        = CountDITL (dialog);
        OSErr                err                    = AppendDialogItemList (dialog,ditlID,method);

        if (err)
        {
            DialogItemIndex itemCountAfter = CountDITL (dialog);
            err = (itemCountBefore < itemCountAfter) ? noErr : paramErr;
        }

        return err;
    #endif
}